hoje <- Sys.Date()
class(hoje)
copa70<-as.Date("1970/06/21")
dif<-(hoje - copa70)
outrodia<-(hoje +43)